Konvertierung eines PWideChar zu einem String function PWideCharToString(pwch:PWideChar;count:integer):string; begin  result:=“;  for count:=count downto 1 do   begin    result:=result+pwch^;    inc(pwch);   end; end; unlzw.pas This file has been ported from gZIP v 1.24: „unlzw.c“ v 0.15 1993/06/10 13:28:35 filesize = 9217. This Unit implements the original LZW (Lempel-Ziv-Welch) Decompression Algorithm. Description: function unlzw(inStr,outStr:TStream): boolean; … Delphi weiterlesen